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5 
16-Sep-1984 00:19: VAX=11 FORTRAN V3.4-56 P 
goseoe19 4 9953733) DISKSVMSMASTER: CERF SRCIDECODECC. FOR 1 


1 C 
¢ : Version: *v04-000' 83 
‘ Cee eee eee eee eA KHER AHHH EAEAHATAHEEAHERAAAAHHKEKER HEHE eee AeA Keeeeeees 000 
Ce ra 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 000 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * bo8 
8 Ce ALL RIGHTS RESERVED. ® nit 
+ 
10 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 001 
11 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 001 
3 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ed 
1 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ? 
14 (Ce OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 007 
9015 * TRANSFERRED. ‘ 603 
* 
8019 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 007 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 007 
9013 Ce CORPORATION. * ot 
ora 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 007 
69 ¢ ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® ane 
® 
008 
09 5 I esidieiinesiahaienatadiben ia deuidtasiaa aieliinasietagahia kilt aces indtiadlciad  ieta eee t se 
C 
99 f ¢ AUTHOR BRIAN PORTER CREATION DATE 29-MAY-1979 508 
0029 008 
00 C++ 008 
$03) ¢ Functional description: Oo8 
0038 C This module decodes syndrome bits. If it can be determined that a 009 
0034 C double bit failure has occured then -1 is returned. Otherwise 009 
69 5 ¢ a failing bit position is returned. o09 
0037 C Modified by: 009 
0038 C 009 
0039 C v03-001 BP0004 Brian Porter, 23-MAR-1982 009 
0040 C Corrected bug in syndrome array. 009 
1 Cee 009 
0049 (-- 010 
004 010 
4 intogeres function decode_ecc (error_syndrome, 18 
‘ 1 sbi_configuration_register) 13 
010 
8 include ‘src$:msghdr.for /nolist' aig 
107 10 
108 10 
109 10 
119 byte error_syndrome 4. 
Ng integer*4 sbi_configuration_register A 
"3 byte ms780e_syndrome (0:38) i} 
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5 
ee iB-Sep-1984 19:37:5) SES SUmSmASTER: LER ssAcaDECoDEcc.FoRGI@” 7 oa 
1g data ms780e_syndrome(0) /*Gt'x/ qt 
18 data ms780e_syndrome(1) /*ha'x/ 1} 
| 9 data ms780e_syndrome (2) /"52'x/ 
i 4 data ms780e_syndrome(3) 1*54'x/ ; 
i $ data ms780e_syndrome(4) /*57'x/ Bt 
| § data ms780e_syndrome(5) /*58'x/ ot 
' 3 data ms780e_syndrome (6) /*Sb'x/ 31 
' o data ms780e_syndrome(7) /"5d*x/ 4, 
; ; data ms780e_syndrome(8) /*°23'x/ ot 
3 : data ms780e_syndrome(9) /°25'x/ 813 
3 data ms780e_syndrome(10) /*26'x/ gt 
3 $ data ms780e_syndrome(11) 1°29'x/ gt3 
dre data ms780e_syndrome(12) /*2a'x/ aie 
Big data ms780e_syndrome(13) /*2c'x/ aie 
He: data ms780e_syndrome(14) /°31'x/ one 
Bis data ms780e_syndrome(15) /*34'x/ aie 
de 4 data ms780e_syndrome(16) /*0e'x/ ae 
0131 data ms780e_syndrome(17) /*Ob'x/ gt3 
136 data ms780e_syndrome(18) /*13'x/ giz 
0134 data ms780e_syndrome(19) /°15'x/ ote 
136 data ms780e_syndrome(20) /*16'x/ Ot 
138 data ms780e_syndrome(21) /°19'x/ O15 
190 data ms780e_syndrome(22) /"Va'x/ aie 
166 data ms780e_syndrome (23) /"1c'x/ Ole 
168 data ms780e_syndrome(24) /*62'x/ aie 
+ 4 data ms780e_syndrome(25) 1°64'x/ 016 
138 data ms780e_syndrome (26) /°67'x/ 
179 data ms780e_syndrome(27) /°68'x/ 
172 data ms780e_syndrome( 28) /*6b'x/ 


kK 5 

ct et Breet 19bG 19:51:57 DISKSVMSASTER:FERE SRcIDECODECC.FORTI?” 
: data ms780e_syndrome(29) /*6d'x/ 

178 data ms780e_syndrome(30) /*70'x/ 

178 data ms780e_syndrome(31) /*75'x/ 
i data ms780e_syndrome(32) /*01'x/ 

i data ms780e_syndrome(33) 1°04'x/ 

; 2 data ms780e_syndrome(34) /°02'x/ 
8186 data ms780e_syndrome(35) /°08'x/ 
a4 data ms780e_syndrome (36) /*10'x/ 
Biot data ms780e_syndrome(37) /*20'x/ 
O15 data ms780e_syndrome(38) /°40'x/ 
Bi3e byte mx780_syndrome(0:71) 
Bae data mx780_syndrome(0) /"38'x/ 
B36 data mx780_syndrome(1) /*19'x/ 
aspe data mx780_syndrome(2) /"Va'x/ 
S34 data mx780_syndrome(3) /"3b'x/ 
38 data mx780_syndrome(4) /"1c'x/ 
Bsee data mx780_syndrome(5) /*3d'x/ 
Osos data mx780_syndrome (6) /"3e'x/ 
0310 data mx780_syndrome(7) /*1f*x/ 
0312 data mx780_syndrome(8) /°68'x/ 
O34 data mx780_syndrome(9) 1°49'x/ 
0 \¢ data mx780_syndrome(10) /*ha'x/ 
3 data mx780_syndrome(11) /*6b'x/ | 
6 $9 data mx780_syndrome(12) /*hc'x/ | 
0333 data mx780_syndrome(13) /*6d'x/ 
022% data mx780_syndrome(14) /*6e'x/ 
data mx780_syndrome(15) /*4f'x/ 

8 data mx780_syndrome(16) /*70'x/ 
0229 
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1 data 
§ data 
data 
5 
data 
data 
40 data 
41 
4g data 
4 
ae data 
45 
“8 data 
4 
0248 data 
0249 
0250 data 
0251 
0 26 data 
0584 dat 
ata 
0255 
0 2$ data 
025 
0258 data 
0259 
0260 data 
0261 
0 o¢ data 
026 
0264 data 
0265 
0266 data 
8 67 
68 data 
0 44 
0270 data 
0271 
0 % data 
7 
74 data 
ye 4 
ata 
a7) 
ata 
79 
tf data 
s data 
data 
HA 
data 


mx780_syndrome(17) 
mx780_syndrome(18) 
mx780_syndrome(19) 
mx780_syndrome(20) 
mx780_syndrome(21) 
mx780_syndrome(22) 
mx780_syndrome(23) 
mx780_syndrome(24) 
mx780_syndrome(25) 
mx780_syndrome (26) 
mx780_syndrome(27) 
mx780_syndrome (28) 
mx780_syndrome(29) 
mx780_syndrome(30) 
mx780_syndrome(31) 
mx780_syndrome(32) 
mx780_syndrome (33) 
mx780_syndrome(34) 
mx780_syndrome(35) 
mx780_syndrome (36) 
mx780_syndrome (37) 
mx780_syndrome(38) 
mx780_syndrome(39) 
mx780_syndrome (40) 
mx780_syndrome(41) 
mx780_syndrome(42) 
mx780_syndrome(43) 
mx780_syndrome (44) 
mx780_syndrome(45) 


/*51'x/ 
/*52'x/ 
/*73'x/ 
/*54'x/ 
/*75'x/ 
/"76'x/ 
/*56'x/ 
/*58'x/ 
/*79'x/ 
/"Ta'x/ 
/*Sb'x/ 
/*7c'x/ 
/'5d'x/ 
/"Se'x/ 
/'7f'x/ 
/*aB'x/ 
/*89'x/ 
/"Ba'x/ 
/*ab'x/ 
/*8c'x/ 
/*ad'x/ 
/*ae'x/ 
/*8f'x/ 
/*b0'x/ 
S91" x/ 
/*92'x/ 
/*b3'x/ 
1°94'x/ 
/*bS'x/ 


5 
if-sep-1984 09:19:31 
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sone Bree h=13be 13:57:57 DISKSUMSRASTER: FERF SkcIDECODECC.FORTI™” 
0287 

58 data mx780_syndrome (46) /*b6'x/ 
+ data mx780_syndrome(47) 1'97'x/ 

38 data mx780_syndrome (48) /°98'x/ 

Be data mx780_syndrome (49) /"b9'x/ 

4 data mx780_syndrome(50) /*ba'x/ 

4 data mx780_syndrome(51) /'9b'x/ 

4 data mx780_syndrome(52) /*bc'x/ 

Hi data mx780_syndrome (53) /"9d'x/ 

$0¢ data mx780_syndrome (54) /"9e'x/ 

$9 data mx780_syndrome(55) /"bf'x/ 

308 

309 


data mx780_syndrome(57) /*cl'x/ 
mx780_syndrome (58) /*c2'*x/ 
mx780_syndrome(59) /*e3'x/ 
mx780_syndrome (60) /*c4'x/ 
mx780_syndrome (61) /*eS'x/ 
mx780_syndrome(62) /*e6'x/ 
mx780_syndrome (63) /*c?'x/ 
mx780_syndrome (64) /°01'x/ 
mx780_syndrome (65) /*02'x/ 
mx780_syndrome (66) /°04'x/ 
mx780_syndrome(67) /'08'x/ 
mx780_syndrome (68) /°10°x/ 
mx780_syndrome (69) /°20'x/ 
mx780_syndrome(70) /°40'x/ 
mx780_syndrome(71) /°80'x/ 
ms7x0_syndrome (0:38) 

ms7x0_syndrome(0) /*58'x/ 
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| 
data mx780_syndrome (56) /*e0'x/ 
| 
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data 
data 
data 
data 
data 
data 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
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data 
data 


ms7x0_syndrome(1) 
ms7x0_syndrome(2) 
ms7x0_syndrome(3) 
ms7x0_syndrome(4) 
ms7x0_syndrome(5) 
ms7x0_syndrome(6) 
ms7x0_syndrome(7) 
ms7x0_syndrome(8) 
ms7x0_syndrome(9) 
ms7x0_syndrome(10) 
ms7x0_syndrome(11) 
ms7x0_syndrome(12) 
ms7x0_syndrome(13) 
ms7x0_syndrome(14) 
ms7x0_syndrome(15) 
ms7x0_syndrome(16) 
ms7x0_syndrome(17) 
ms7x0_syndrome(18) 
ms7x0_syndrome(19) 
ms7x0_syndrome(20) 
ms7x0_syndrome(21) 
ms7x0_syndrome(22) 
ms7x0_syndrome(23) 
ms7x0_syndrome(24) 
ms7x0_syndrome(25) 
ms7x0_syndrome (26) 
ms7x0_syndrome(27) 
ms7x0_syndrome(28) 
ms7x0_syndrome(29) 


/°19'x/ 
/"1a'x/ 
/*Sb'x/ 
/"1c'x/ 
/"5d'x/ 
/"Se'x/ 
/*1f'x/ 
/*68'x/ 
/°29'x/ 
/*2a'x/ 
/*6b'x/ 
/*2c'x/ 
/"6d'x/ 
/"6e'x/ 
/*2t'x/ 
/°70'x/ 
/*31'x/ 
/*32'°x/ 
/*73'x/ 
/*34'x/ 
/*75'x/ 
/"76'x/ 
/"37'x/ 
/"38'x/ 
/*79'x/ 
/*7a'x/ 
/"3b'x/ 
/*7c'x/ 
/"3d'x/ 
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6 
DECODE_ECC ib-Se 1984 00:19:21 VAX-11 FORTRAN V3.4-56 Page 
~Sep-19 4 99:29:3) DISKSVMSMASTER: CERF .SRCIDECODECC. FORT 1° 
01 
B09 data ms7x0_syndrome(30) /"3e'x/ 
Be data ms7x0_syndrome(31) /*7t*x/ 
88 data ms7x0_syndrome(32) /'01'x/ 
et data ms7x0_syndrome(33) /"02'x/ 
edt data ms7x0_syndrome(34) /°04'x/ 
otis data ms7x0_syndrome(35) /'08'x/ 
Bele data ms7x0_syndrome(36) /*10'x/ 
ba 49 data ms7x0_syndrome (37) /*°20'x/ 
0418 data ms7x0_syndrome(38) /*40'x/ 
0419 
a3 
0421 
58 
042 decode_ecc = -1 
Bese 
0425 c 
Bes$ C 11/780 
0427 c 
0428 
44 if ¢ 
04 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 255 
0431 1 .@r, 
eh 4 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 
043 1) then 
0434 
0435 C 
0436 C ms780c and ma780 
0437 C 
0438 
0439 if ¢ 
Reed ' LibSextzv(5,3,sbi_configuration_register) .eq. 0 Bo5i 
Or. 
044 1 LibSextzv(5,3,sbi_configuration_register) .eq. 2 009 
044 1) then 0101 
0444 10 
aeee do 5,i = 0,71 18 
pee? if (error_syndrome .eq. mx780_syndrome(i)) decode_ecc = i as 
ee 5 continue Bi 
51 c 10 
3¢ c ms780e 16 
a3 
$2 else if (LibSextzv(5,3,sbi_configuration_register) .eq. 3) then ; 
ba89 do 10,i = 0,38 027, 


DECODE _ECC 


0459 if (error_syndrome .eq. ms780e_syndrome(i)) decode_ecc = i 
61 10 continue 
bce endif 
6 
Bree c 
65 c 11/750, 11/730 
ocer 
0468 else if ( 
B798 : t WeSentav(es.6,enbSt_pd_std) eq. 2 
0471 1 LibSextzv(24,8,emb$l_hd_sid) .eq. 
0472 i} the ee 7 
047 
pare do 15,i = 0,38 
b259 if (error syndrome .eq. ms7x0_syndrome(i)) decode_ecc = i 
0478 15 continue 
0479 endif 
0480 
0481 return 
pees 
048 end 
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ifoseont age 00:19:34 


VAX=-11 FORTRAN tes 
DISKSVMSMASTER: CERF .SRCIDECODECC.FOR; 1 


Name Bytes Attributes 
0 SCODE 195 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 16 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 208 PIC CON REL LCL NOSHR NOEXE WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE WRT LONG 
Total Space Allocated 931 
ENTRY POINTS 
Add:ess Type Name 
0-00000000 I*4 DECODE_ECC 
VARIABLES 
Address Type Name Address Type Name 
-00000000 I*4 EMBSL_HD_SID 3-00 *2 EMBSW_HD ENTRY 
3-S009000e I*2 EMBSW_HD_ERRSEQ AP- So0gboea Le * ERROR- SYNDROME 
-0000009C I*4 | AP-000000088 I*4 SBI OC ONE IGURATION. REGISTER 


Page 
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DECODE_ECC 1g- sep-1984 99:19:31 VAX-11 FORTRAN ¥3,6-56 Page Dad 
-Sep-1984 2:51:27 DISKSVMSMASTER: CERF .SRCIDECODECC.FOR;1 
ARRAYS 
Address Type Name Bytes Dimensions 
L*1 - 51 (0:511) 
I*4 E (2) 
L*1 MS aber Smh CPNDROME ( :38) 
F Lei MS7x DROME 9 (0:38) 
-00000027 L*1 Mx780- ~ SYNDROME 2 (0:71) 
LABELS 
Address Label Address Label Address Label 


et 5 ee 10 we 15 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
1*4 LIBSEXTZV 
| 
| 
} 
| 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DECODECC/OBJ=0BJ$:DECODECC MSRC$:DECODECC 


/ CHE CK=(NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG= (NOS YMBOL S$, TRACEBACK 

7STANDARDs (NOS THTAX RAOSOURCE FORM) 

/SHOW= (NOPREPROCESSOR, NOINCLUDE ,MA 

7777 /NOG_FLOATING /14 SOPTIAIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


34 
34 
34 
35 
35 
35 
35 
35 
35 
35 
35 
35, 
35 


COMPILATION STATISTICS 
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Run Time: 3.01 seconds 
Elapsed Time: B.01 seconds 
Page Faults: 146 
Dynamic Memory: 179 
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